home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU21.ARC / COMPUTER COMMAND (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  119 lines
  1. 10 REM *******************************
  2. 20 REM * THIS PROGRAM WILL PRINT OUT *
  3. 30 REM * A 2 1/8 PAGE COMMAND LIST   *
  4. 40 REM * TO THE PRINTER --- WORKS ON *
  5. 50 REM * GEMINI FOR SURE.            *
  6. 60 REM *******************************
  7. 100 PRINT"[147]":PRINT CHR$(5):PRINT"COMMAND LIST-COMPUTER":PRINT
  8. 110 PRINT"PRESS F1 TO START PRINTER"
  9. 120 GETA$:IFA$=""THEN120
  10. 130 IFA$="[133]"THEN150
  11. 140 GOTO120
  12. 150 OPEN4,4:CMD4:PRINT CHR$(14)
  13. 160 PRINT CHR$(16)"28COMMAND LIST":PRINT CHR$(15)
  14. 170 PRINT"SIMPLE VARIABLES":PRINT
  15. 180 PRINT"TYPE";CHR$(16)"30NAME RANGE"
  16. 190 PRINT"REAL";CHR$(16)"30XY-(+-)1.7O141183E+38"
  17. 200 PRINT CHR$(16)"30(+-)2.93873588E-39)
  18. 210 [153]"INTEGER";[199](16)"30XY% (+-)32767"
  19. 220 [153]"STRING";[199](16)"30XY$-O TO 255 CHARACTERS":[153]
  20. 230 [153]"X IS A LETTER(A-Z).  Y IS A LETTER OR NUMBER(O-9).  VARIABLE NAMES"
  21. 240 [153]"CAN BE MORE THAN 2 CHARACTERS, BUT OONLY THE FIRST TWO ARE"
  22. 250 [153]"RECOGNIZED.":[153]
  23. 260 [153]"ARRAY VARIABLES":[153]
  24. 270 [153]"TYPE";[199](16)"30NAME"
  25. 280 [153]"SINGLE DIMENSION";[199](16)"30XY(5)"
  26. 290 [153]"TWO-DIMENSION";[199](16)"30XY(5,5)"
  27. 300 [153]"THREE-DIMENSION";[199](16)"30XY(5,5,5)":[153]
  28. 310 [153]"ARRAYS OF UP TO ELEVEN ELEMENTS(SUBSCRIPTS(O-1O) CAN BE USED WHERE"
  29. 320 [153]"NEEDED. ARRAYS WITH MORE THAN ELEVEN ELEMENTS NEED TO BE DIMENSIONED."
  30. 330 [153]:[153]"ALGEBRAIC OPERATORS":[153]
  31. 340 [153]"= ASSIGNS VALUE TO VARIABLE"
  32. 350 [153]"- SUBTRACTION & NEGATIVE":[153]"^ EXPONENTIATION":[153]"/ DIVIDE"
  33. 360 [153]:[153]"RELATINAL AND LOGICAL OPERATORS":[153]
  34. 370 [153]"= EQUAL":[153]"<> NOT EQUAL TO":[153]"< LESS THAN"
  35. 380 [153]"> GREATER THAN":[153]"<= LESS THAN OR EQUAL TO"
  36. 390 [153]"<= LESS THAN OR EQUAL TO":[153]"NOT - LOGICAL 'NOT'"
  37. 400 [153]"AND - LOGICAL 'AND'":[153]"OR - LOGICAL 'OR'":[153]
  38. 410 [153]"EXPRESSION EQUAL 1 IF TRUE, O IF FALUSE.":[153]
  39. 420 [153]"SYSTEM COMMANDS":[153]
  40. 430 [153]"LOAD'NAME' - LOADS A PROGRAM FROM TAPE"
  41. 440 [153]"SAVE'NAME' - SAVES A PROGRAM ON TAPE"
  42. 450 [153]"LOAD'NAME',(8,9,10,11) - LOADS PROGRAM FROM DISK DRIVE."
  43. 460 [153]"SAVE'NAME',(8,9,10,11) - SAVES PROGRAM ON DISK DRIVE."
  44. 470 [153]"VERIFY'NAME' - VERFIES THAT THE PROGRAM IS SAVED"
  45. 480 [153]"RUN - EXECUTES A PROGRAM"
  46. 490 [153]"RUNXXX - EXECUTES A PROGRAM STARTING AT XXX"
  47. 500 [153]"STOP - HALTS EXECUTION":[153]"END - ENDS EXECUTION"
  48. 510 [153]"CONT - CONTINUES PROGRAM EXECUTION FROM LINE WHERE PROGRAM WAS "
  49. 520 [153]"HALTED-STOP."
  50. 530 [153]"PEEK(X) - RETURNS CONTENTS OF MEMORY LOCATION X"
  51. 540 [153]"POKEX,Y - CHANGES CONTENTS OF LOCATION X TO VALUE Y"
  52. 545 [129]I[178]1[164]5:[153]:[130]I
  53. 550 [153]"SYSXXXX - JUMPS TO EXECUTE A MACHINE LANGUAGE PROGRAM, STARTING AT"
  54. 560 [153]"XXXX"
  55. 570 [153]"WAITX,Y,Z - PROGRAM WAINTS UNTIL CONTENTS OF LOCATION X, WHEN EOR ED"
  56. 580 [153]"WITH Z AND ED WITH Y IS NON-ZERO."
  57. 590 [153]"USR(X) - PASSES VALUE X TO A MACHINE LANGUAGE SUBROUTINE":[153]
  58. 600 [153]"EDITING AND FORMATING COMMANDS":[153]
  59. 610 [153]"TYPE";[199](16)"30OPERAION"
  60. 620 [153]"LIST";[199](16)"30LISTS ENTIRE PROGRAM"
  61. 630 [153]"LISTX-Y";[199](16)"30LISTS FROM X TO Y"
  62. 640 [153]"REM";[199](16)"30COMMENT MESSAGE CAN BLISTED BUT IS IGNRED DURING"
  63. 650 [153]"TAB(X)";[199](16)"30USED TO PRINT AT DESIRED POSTION ON SCREEN"
  64. 660 [153] [199](16)"30(01 TO 40)"
  65. 670 [153]"SPC(X)";[199](16)"30PRINTS X SPACES ON LINE"
  66. 680 [153]"POS(X)";[199](16)"30RETURNS CURRENT CURSOR POSITION"
  67. 690 [153]"SHIFT CLR/HOME";[199](16)"30POSITIONS CURSOR AT HOME AND CLEARS SCREEN"
  68. 700 [153]"SHIFT INST/DEL";[199](16)"30INSERTS SPACE AT CURRENT CURSOR POSITION"
  69. 710 [153]"INST/DEL";[199](16)"30DELETES CHARACYER AT CURRENT CURSOR POSITION"
  70. 720 [153]"CTRL";[199](16)"30WHEN USED WITH COLOR KEY, SELECTS TEXT COLOR. MAY"
  71. 730 [153] [199](16)"30BE USED IN PRINT STATEMENTS."
  72. 740 [153]"CRSR KEYS";[199](16)"30MOVES CURSOR, UP, DOWN, RIGHT OR LEFT."
  73. 750 [153]"COMMODORE KEY";[199](16)"30WHEN USED WITH SHIFT SLECTS BETWEEN UPPER"
  74. 760 [153] [199](16)"30AND LOWER CASE AND GRAPHIC DISPLAY MODE.  WHEN"
  75. 770 [153] [199](16)"30USED WITH NUERIC COLOR KEY, SELECTS OPTIONAL "
  76. 780 [153] [199](16)"30TEXT COLOR.":[153]
  77. 790 [153]"ARRAYS AND STRINGS":[153]
  78. 800 [153]"DIM A(X,Y,Z)";[199](16)"30SETS MAXIMUM SUBSCRIPS FOR A; RESERVES SPACE"
  79. 810 [153] [199](16)"30FOR (X+1)*(Y+1)*Z+1) ELEMENTS STARTING AT"
  80. 820 [153] [199](16)"30 A(O,O,O)
  81. 830 PRINT"LEN(X$)";CHR$(16)"30RETURNS THE NUMBER OF CHARACTERS IN X$"
  82. 840 PRINT"STR$(X)";CHR$(16)"30RETURNS NUMERIC VALUE OF X"
  83. 850 PRINT"VAL(X$)";CHR$(16)"30RETURNS NUMER VALUE OF A$, UP TO FIRST"
  84. 860 PRINT CHR$(16)"30NONNUMERIC CHARACTER"
  85. 870 PRINT"CHR$(X)";CHR$(16)"30RETURNS ASC11 CODE FOR FORST CHARACTER OF X$"
  86. 880 PRINT"LEFT$(A$,X)";CHR$(16)"30RETURNS LEFTMOST X CHARACTERS OF A$"
  87. 890 PRINT"RIGHT$(A$,X)";CHR$(16)"30RETURNS RIGHTMOST X CHARACTERS OF A$"
  88. 900 PRINT"MID$(A$,X,Y)";CHR$(16)"30RETURNS RIGHTMOST X CHARACTERS STARTING "
  89. 910 PRINT CHR$(16)"30FROM CHARACTER Y":PRINT
  90. 920 PRINT"INPUT/OUTPUT COMMANDS":PRINT
  91. 930 PRINT"INPUTA$ORA";CHR$(16)"30PRINTS '?' UNLESS 'DESIRED';A$ORA THEN"
  92. 940 PRINT CHR$(16)"30DESIRED? PROGRAM STOPS FOR ENTRY"
  93. 950 PRINT"INPUT'ABC';A,B,C";CHR$(16)"30STOPS TO ENTER A, B, AND C."
  94. 960 PRINT"GET A$ OR A";CHR$(16)"30WIATS FOR USER TO TYPE IN DATA DESIRED"
  95. 970 PRINT"DATA";CHR$(16)"30USED TO PUT IN DATA - CAN BE STRING EXPRESSIONS"
  96. 980 PRINT CHR$(16)"30AS WELL'[160]' DATA FORM."
  97. 990 PRINT"READ A$ OR A";CHR$(16)"30ASSIGNS NEXT DATA VALUE TO A$ OR A. RESETS"
  98. 1000 PRINT CHR$(16)"30DATA POINTER"
  99. 1010 PRINT"RESTORE";CHR$(16)"30RESETS DATA POINTER TO START READING DATA LIST"
  100. 1020 PRINT"PRINT'A= ';A";CHR$(16)"30PRINTS STRING A= AND THE VALUE A AND TABS"
  101. 1030 PRINT CHR$(16)"30DATA TO NEXT FIELD."
  102. 1040 PRINT:PRINT"PROGRAM FLOW":PRINT
  103. 1050 PRINT"TYPE";CHR$(16)"30OPERATION"
  104. 1060 PRINT"GOTOX";CHR$(16)"30BRANCHES TO LINE X"
  105. 1065 FORI=1TO6:PRINT:NEXTI
  106. 1070 PRINT"IFA=1THEN10";CHR$(16)"30IF A EQUALS 1 THEN GOES TO LINE 10. "
  107. 1080 PRINT CHR$(16)"30LOGICAL TEST AND, OR, AND NOT CAN ALSO BE USED"
  108. 1090 PRINT"FORA=1TO10STEP.5:NEXTA";
  109. 1100 PRINT CHR$(16)"30A=1 TO 1O BY GRADUATION OF .5"
  110. 1110 PRINT"NEXTA";CHR$(16)"30DEFINES END OF LOOP."
  111. 1120 PRINT"GOSUB3000";CHR$(16)"30BRANCHES TO SUBROUTINE 3000 AND RETURNS TO"
  112. 1130 PRINT CHR$(16)"30POINT OF ORIGIN AFTER FINISHED"
  113. 1140 PRINT"ON XGOTOA,B,C,D";CHR$(16)"30BRANCHES OUT TO LINES A, B, C, OR D"
  114. 1150 PRINT CHR$(16)"30WITH X REFERENCE(1TO4)-(ATOB)
  115. 1160 [153]"ON X GOSUBA,B,C,D";[199](16)"GOSUB IS THE SAME AS ON GOTO EXCEPT"
  116. 1170 [153]"POINT OF ORIGIN IS RETURNED TO"
  117. 1180 [153]"RETURN";[199](16)"30MARKS END OF A SUBROUTINE"
  118. 1190 [152]4:[160]4:[128]
  119.